Top 10k strings from Caramelos + Batalla Naval (1984)(Investronica)(es)(Side B).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Compilations - Utilities & Educational & Various / Sinclair ZX Spectrum - Compilations - Various - [TZX] (TOSEC-v2006-06-06) /

Back to the directory listing

   4 ;"QUEDAN: ";10
   3  TUS BARCOS 
   2 A(filod,colod)=-10
   2 A(e,colb+1
   2 A(e+d,col+2
   2 A(e+d,col+1
   2 ;"PULSA UNA TECLA":
   2 ;"PULSA UNA TECLA"
   2 ;"COLUMNA:"
   2 ;"           ";
   2 -hundo;" b."
   2 -hund;" b.":
   2  MIS BARCOS 
   2           
   1 tocados y hundidos de  disparos propios
   1 rut. posible coloc.
   1 pruf=filod:
   1 pruf=filod-1
   1 pruf=filod+1
   1 pruc=colod-1
   1 pruc=colod+1
   1 pruc=colod
   1 instrucciones
   1 hundo=hundo+1
   1 hund=hund+1
   1 filod=pruf:
   1 direcc.opuesta
   1 colod=pruc:
   1 colocacion barcos ordenador
   1 coloc.barcos ordenador vertical
   1 coloc.barcos ordenador horizontal
   1 colb=colb+1
   1 col=colb+1
   1 co=colod-2
   1 c         
   1 borrado barcos
   1 batalla   G@
   1 b=A(filod,colod)
   1 b=A(e,colb+1
   1 anulacion vecinos  tocados disp.ordenador
   1 a$="COMIENZA LA PARTIDA             "
   1 ORIGINAL TAPE
   1 INVESTRONICA
   1 COMIENZA LA PARTIDA             D
   1 BATALLA NAVAL 48k (Side B)
   1 BATALLA   Z
   1 B(filo,colo+t)=ord
   1 B(filo,colo+h)
   1 B(filo+t,colo)=ord
   1 B(filo+h,colo-1
   1 B(filo+h,colo+1
   1 B(filo+h,colo)
   1 A(pruf,pruc)=9
   1 A(pruf,pruc)=-10
   1 A(nf+r,nc+s)=0
   1 A(nf+r,nc+s)=-10
   1 A(filod,colod)>0
   1 A(e+d,col)>0
   1 A(e+d,col)<5
   1 ;d$;"-";cold
   1 ;"horizontal o vertical?"
   1 ;"____________":
   1 ;"Ya puedes afinar tu  punteria  porque tengo  unos  artilleros  muy buenos."
   1 ;"Ya disparado":
   1 ;"Va a tener lugar una terrible  batalla entre nuestras flotas.";
   1 ;"U.disparo:":
   1 ;"Tus barcos estaran situados a  la izquierda  y los  mios a la  derecha."
   1 ;"Teclea la posicion del cuadro"'"  mas alto o mas a la izquierda"'"  del barco a borrar";
   1 ;"TOCADO de ";k1
   1 ;"TOCADO de ";b:
   1 ;"Sigue  paso a  paso todas mis  indicaciones:";
   1 ;"Si deseas cambiar la posicion  de alguno, puedes hacerlo  una  vez  que  los  hayas  colocado  todos.";
   1 ;"QUIERES ALGUN CAMBIO? (s/n)":
   1 ;"QUEDAN:10 b.";
   1 ;"QUEDAN:10 b."
   1 ;"QUE GANE EL MEJOR"
   1 ;"Pulsa una tecla":
   1 ;"Para colocar tus barcos debes  indicarme:"''"  -si es horizontal o vertical,"'"  -la FILA (a-j)  y"'"  -la COLUMNA (0-9)"''" siempre en ese  orden, dandome  el cuadro  mas a la  izquierda  si el  barco es  horizontal, o  el   cuadro  mas  alto, si  el  barco es vertical."
   1 ;"No puedes colocar un barco al  lado de otro.";
   1 ;"HASTA OTRA";
   1 ;"FILA:         "
   1 ;"Cuando  yo lo indique, puedes  desplegar tus  naves en  orden  de batalla."
   1 ;"Cada uno disponemos de:":
   1 ;"COLUMNA:";
   1 ;"COLUMNA: ";
   1 ;"BARCO de ";b:
   1 ;"BARCO de ";b
   1 ;"0123456789     0123456789"
   1 ;"--ECHAMOS LA REVANCHA?-- (s/n)"
   1 ;"* 4 Fragatas     (longitud 1)"
   1 ;"* 3 Destructores (longitud 2)";
   1 ;"* 2 Acorazados   (longitud 3)";
   1 ;"* 1 Portaaviones (longitud 4)"
   1 ;" T E  G A N E ! "
   1 ;" ME HAS GANADO! "
   1 ;" COLOCANDO BARCOS ":
   1 ;" COLOCA TUS BARCOS "
   1 ;" A G U A   ":
   1 ;" A G U A   "
   1 ;"  HUNDIDO  ":
   1 ;"  HUNDIDO  "
   1 ;"  DISPARO!  ":
   1 ;"  DISPARA!  "
   1 ;"         BATALLA NAVAL          "
   1 ;"         ":
   1 ;"          "
   1 ;"            ";
   1 ;"              ";
   1 ;"              "
   1 ;"                  "
   1 ;"                            ";
   1 ;"                                ":
   1 "                   "
   1  tocado anterior 
   1  inicializacion variables 
   1  disparos propios
   1  disparos ordenador 
   1  disparo tocado 
   1  comienzo 
   1  colocacion barcos propios